home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Speech / speech2.bas < prev   
Encoding:
BASIC Source File  |  1988-12-03  |  255 b   |  17 lines
  1. DIM Speech%(8)
  2.  
  3. FOR x=0 TO 8
  4.   READ Speech%(x)
  5. NEXT x
  6.  
  7. SpeechInput:
  8.   LINE INPUT "Text: ", Entry$
  9.   IF Entry$<>"=" THEN Text$=Entry$
  10.   Speech$=TRANSLATE$(Text$)
  11.   CLS : PRINT Text$
  12.   SAY Speech$,Speech%
  13. GOTO SpeechInput
  14.  
  15. DATA 140,0,160,0,22000,64,11,1,0
  16.  
  17.